Softdisk for Windows 38/Softdisk for Windows 38.iso/oilpro/OILPRO.EXE/OILPRO.DXR/00332.ls

Text File | 1997-08-20 | 749 b | 31 lines

on exitFrame
  global LIGHTCNT, SOLEAUSTATUS
  set SOLEAUSTATUS to 1
  set LIGHTCNT to LIGHTCNT + 1
  if rollOver(48) then
    set the castNum of sprite 48 to cast "QUITRETURN1"
  else
    set the castNum of sprite 48 to cast "QUITRETURN0"
  end if
  if rollOver(43) then
    set the castNum of sprite 43 to cast "PRINTBUT1"
  else
    set the castNum of sprite 43 to cast "PRINTBUT0"
  end if
  puppetSprite(4, 1)
  if LIGHTCNT >= 4 then
    set LIGHTCNT to 1
  end if
  if LIGHTCNT = 1 then
    set the castNum of sprite 4 to cast "LIGHT1"
  end if
  if LIGHTCNT = 2 then
    set the castNum of sprite 4 to cast "LIGHT2"
  end if
  if LIGHTCNT = 3 then
    set the castNum of sprite 4 to cast "LIGHT3"
  end if
  updateStage()
  go(the frame)
end